const
  PBoxOrg                   : array[0..17] of DWord = (
    $6372C46C, $A9EE0A21, $6FEFBAAA, $F946D157, 
    $AD1376B8, $E860B59D, $04790416, $5530F073, 
    $09908244, $ED261F59, $14B904C2, $0C29A3CF, 
    $53C77310, $9AC20355, $DA3268AE, $FE6E476B, 
    $705B151C, $B9925D91);
  SBoxOrg                   : array[0..3, 0..255] of DWord = ((
    $4BD4B958, $BD8182BD, $80E185B6, $B311F893, 
    $28262AE4, $F604EA79, $7ACF7C62, $5D4879EF, 
    $80CA21B0, $52D9EC75, $0FDE764E, $2ED10B8B, 
    $706969BC, $C27C84B1, $B66A5F7A, $3D274967, 
    $FEDE0F08, $3A5EEF2D, $05D30F83, $8D3F5D94, 
    $0325A7E9, $09A0EF92, $404479DF, $5F2DE160, 
    $97236AE5, $BDFFAE7E, $F7EFE47B, $8D5F666C, 
    $8F153421, $6B5B8CAA, $0AA9EB57, $ED6AF8B8, 
    $591E3F9D, $4354B616, $67436A73, $BAD4E444, 
    $B6040959, $BDB696C2, $A8657DCF, $0D5AB510, 
    $38AA4D55, $05E3DAAE, $E7AD816B, $687F371C, 
    $43CF0791, $DF826DDA, $E5091147, $F0567668, 
    $4206740D, $AE677C46, $DE520963, $0F91BEF4, 
    $13F70EC9, $8DC371F2, $B32A85BF, $9ACB9CC0, 
    $F0D593C5, $A28DFADE, $3118E25B, $BD13DBCC, 
    $3520FF01, $1532030A, $A3E3BB37, $39BB8818, 
    $DB9E8C7D, $5E79B676, $062DEC53, $CF60EDA4, 
    $9C95B839, $D3BA8122, $6E5291AF, $C83B9870, 
    $EF4C3E35, $9E410F0E, $9381074B, $03A8547C, 
    $69C21A71, $89FD4C3A, $8718E927, $04F52DC8, 
    $3AAD88ED, $576E64A6, $FE461343, $D36D7054, 
    $B9B705A9, $7CCEC452, $C7DCA19F, $B7A5A820, 
    $49F54CA5, $8280173E, $4A74F03B, $2207A12C, 
    $0AA959E1, $66B7496A, $26C79B17, $469E6778, 
    $123A695D, $B46886D6, $5A497E33, $3A224704, 
    $2F71F719, $39733B82, $7E07B58F, $9C44CBD0, 
    $6CF7BF15, $880E136E, $FDC39D2B, $1B3CC1DC, 
    $D30DBD51, $AF72FA9A, $634ED107, $5C923528, 
    $238C2DCD, $D7CB1D06, $12272D23, $172A71B4, 
    $8C1D8C89, $AD5AE6B2, $0F52CD7F, $6A940380, 
    $8ABA9585, $C6EE039E, $B17C0E1B, $BF92B68C, 
    $806644C1, $73835FCA, $554D8AF7, $BDEB96D8, 
    $AE29D63D, $9B392736, $720E2013, $2370F064, 
    $9850C5F9, $9F78C5E2, $AA7CE96F, $884E4F30, 
    $0BE4CFF5, $6662E7CE, $B5ED430B, $5C947F3C, 
    $4269F031, $FD7B78FA, $3DA2C8E7, $AB058C88, 
    $DFDA62AD, $7F95A566, $0A6D5703, $6D20C314, 
    $C6E2A369, $29FFD912, $1E85095F, $7C6EAEE0, 
    $FF5D6E65, $CCEFBFFE, $97A63BFB, $6D0D1BEC, 
    $2B0FBFA1, $032E462A, $756D8AD7, $DD7B1638, 
    $44A4D31D, $DD039796, $9FF3D1F3, $07A4E9C4, 
    $A4EA24D9, $EA632042, $CAAA2D4F, $9F302290, 
    $8A4B70D5, $D0578C2E, $0F75F8EB, $49078C9C, 
    $9E8EB311, $D5AEC75A, $5E0CD0C7, $382733E8, 
    $36D0278D, $12E5FDC6, $1B9090E3, $BBA86474, 
    $49BE4A49, $31559B72, $8E6B553F, $CA0DAA40, 
    $5815D745, $E59D4C5E, $F26B79DB, $D5CED14C, 
    $C35DCA81, $914FFC8A, $511F9AB7, $7724E598, 
    $4EE35FFD, $B7DFD7F6, $7A7293D3, $B7163324, 
    $C6F613B9, $32CA4AA2, $B987812F, $07C245F0, 
    $0A63A1B5, $5104008E, $21D5BECB, $35EDE9FC, 
    $F23405F1, $4DA4E5BA, $9084E8A7, $DFCF2B48, 
    $D3A57C6D, $C9D42626, $BE08DAC3, $3D1955D4, 
    $98688129, $35F42DD2, $FBFDB11F, $4448F5A0, 
    $A91BD025, $560EA8BE, $7B43C7BB, $792FD6AC, 
    $26086561, $4D8082EA, $365BBA97, $F0C104F8, 
    $2A1D7CDD, $DDE5E856, $DC0265B3, $561CCC84, 
    $142C9299, $C5464502, $560CE50F, $FCDCB950, 
    $12656295, $678044EE, $C88494AB, $4C9F975C, 
    $6C11E8D1, $2EF5D41A, $25031087, $11D572A8, 
    $4592614D, $50781E86, $AE4E34A3, $7FCB9734, 
    $DA994809, $DE739032, $08341CFF, $EFF89100, 
    $6AA75905, $575BD51E, $AFA7259B, $AA882C0C, 
    $53C79041, $1B57D94A, $F719EA77, $44277458), (
    $178B29BD, $752DC8B6, $E31B4793, $5D10B5E4, 
    $4645A179, $226F0F62, $833258EF, $CD577CB0, 
    $8C88B375, $86E4594E, $A2FA7A8B, $8A7494BC, 
    $5EE05BB1, $F739927A, $EF7F4867, $D2120A08, 
    $FFCED62D, $C6E9E6E6, $ECD89E83, $66172894, 
    $DC089EE9, $056BC292, $580698DF, $E5F47C60, 
    $78F071E5, $169CD17E, $D10D937B, $912FD16C, 
    $71534B21, $926DFFAA, $E9522A57, $FF3033B8, 
    $3C64669D, $17CF7916, $F2353973, $9849EF44, 
    $BAF94059, $FEDCA9C2, $27EFDCCF, $DC0A9010, 
    $C7059455, $16483DAE, $14AF706B, $C0C4E21C, 
    $41575E91, $D80820DA, $47F19047, $B85CF168, 
    $5992DB0D, $C1417F46, $BE201863, $265409F4, 
    $0C6E85C9, $B974C4F2, $946D24BF, $5314B7C0, 
    $142F1AC5, $B4E99DDE, $E4EF115B, $287EC6CC, 
    $C7639601, $FE5AF60A, $E6FC7A37, $43B34318, 
    $A1E1337D, $D3E2F976, $AFC83B53, $282078A4, 
    $73FF6F39, $43271422, $2F3D70AF, $9FCDF370, 
    $74140535, $70C3F20E, $451B764B, $94E87F7C, 
    $AE2EF171, $B6F97F3A, $0A51E827, $F08E28C8, 
    $8E166FED, $4796E7A6, $AA9CA243, $4ADA3B54, 
    $7F82FCA9, $3D269752, $6A5FC09F, $78314320, 
    $E09B53A5, $475A3A3E, $B4C39F3B, $3FCD0C2C, 
    $C2B070E1, $5EB6BC6A, $4E10DA17, $C788A278, 
    $3539905D, $2B8049D6, $064C4D33, $80EC5204, 
    $17102E19, $0BE64E82, $8813148F, $A379A6D0, 
    $A9EC0615, $E56F766E, $1FB68C2B, $80376CDC, 
    $641F1451, $2DA5AD9A, $96985007, $3A7DB028, 
    $BC9194CD, $D6022006, $7EC63C23, $B201BCB4, 
    $ECFE0389, $071939B2, $8AD66C7F, $AA221E80, 
    $E66D1C85, $D706A69E, $CE033D1B, $7A72A18C, 
    $F3F1DBC1, $671952CA, $D48851D8, $C7A57D3D, 
    $14BF6A36, $24396F13, $6B057B64, $EDE37CF9, 
    $A9B258E2, $2568C86F, $85E5AA30, $E2C596F5, 
    $B762CACE, $53F8B20B, $D009AA3C, $45DFC731, 
    $89A4ABFA, $D0BCC7E7, $EA038788, $E83C49AD, 
    $5C9B2866, $4B14E603, $8E228E14, $B0979A69, 
    $C1E4AC12, $AAC9285F, $51BF49E0, $91DC7565, 
    $6106E2FE, $8225EAFB, $4FC786EC, $0FDFD6A1, 
    $7F1AB92A, $6457C9D7, $488A5138, $0E5CFA1D, 
    $F9B85A96, $7C07A0F3, $E6315BD9, $A1233342, 
    $FE368C4F, $F9E9FD90, $FCD8B7D5, $1DB5EF2E, 
    $5559E7EB, $A5B7379C, $5A290A11, $CC8E7A5A, 
    $20B74FC7, $E6F7AEE8, $F84E8E8D, $3F7A00C6, 
    $64009FE3, $6594AF74, $CA07C149, $4C20EE72, 
    $832FF43F, $EBE0C540, $B3215E45, $D672EF5E, 
    $E6A3A8DB, $0B23BC4C, $EF326181, $C252EF8A, 
    $637A59B7, $9566A098, $A29806FD, $B8831AF6, 
    $C42EE2D3, $B87FBE24, $91B1CAB9, $AAD0DDA2, 
    $0D74602F, $C65EA0F0, $3A5D68B5, $4380E38E, 
    $5B522DCB, $F69814FC, $CBB2DCF1, $ABFB18BA, 
    $727FE7A7, $AD322648, $B800636D, $56B6A926, 
    $620169C3, $12B020D4, $DD067829, $B86600D2, 
    $D102D01F, $095E90A0, $7E73D725, $1C62CBBE, 
    $D4F476BB, $CBDF41AC, $8EA17C61, $6BE6F997, 
    $C0F53FF8, $A337AB56, $F72734B3, $5090D784, 
    $261CC999, $B3535802, $521A440F, $C61B9450, 
    $418BA995, $47DBA7EE, $615983AB, $8C04425C, 
    $E9353FD1, $9182871A, $360E8F87, $4C8AEDA8, 
    $D689C84D, $EE692186, $218F43A3, $C3CCE234, 
    $314BBF09, $4D4BE332, $5539BBFF, $4F10AC00, 
    $8C0BE005, $0BEE781E, $EA90549B, $8552170C, 
    $0EE52741, $BCC7CC4A, $6F95A977, $650E2F58, 
    $8C78D0BD, $7FEE0BB6, $53689693, $E34F40E4), (
    $7D2A5879, $DB42A262, $CF2037EF, $E7F8D7B0, 
    $1C9B7A75, $3DDE3C4E, $26E7E98B, $0353BFBC, 
    $256832B1, $9ABCC57A, $5F5B4767, $68DA0508, 
    $E722BD2D, $C6A969E6, $C3222D83, $FB42F394, 
    $B28F95E9, $856A9592, $D4CCB7DF, $75CF1760, 
    $D82178E5, $722DF47E, $88EF427B, $FED43C6C, 
    $B4B56221, $2F3472AA, $E47E6957, $AF896EB8, 
    $888E8D9D, $88BE3C16, $5B6B0873, $DD12FA44, 
    $14927759, $7736BCC2, $8B7E3BCF, $2ECE6B10, 
    $39C4DB55, $2CA0A0AE, $2F755F6B, $CDDE8D1C, 
    $1703B591, $9941D3DA, $665E0F47, $39F76C68, 
    $6103420D, $138F8246, $AB322763, $8F6A54F4, 
    $F089FCC9, $0F5A17F2, $18B3C3BF, $4A71D2C0, 
    $C2ECA1C5, $103940DE, $D589405B, $D3BDB1CC, 
    $E8CA2D01, $4337E90A, $C4993937, $623EFE18, 
    $1F07DA7D, $6BC03C76, $D5A68A53, $FE3403A4, 
    $0E0D2639, $0FC7A722, $922C4FAF, $B1744E70, 
    $6B3FCC35, $0F3AD50E, $C279E54B, $30FCAA7C, 
    $78BFC871, $12A9B23A, $470EE727, $8BBB23C8, 
    $9F6356ED, $7D336AA6, $82373143, $AA9B0654, 
    $1EF2F3A9, $CDB26A52, $EDE6DF9F, $ADD0DE20, 
    $10A55AA5, $9B285D3E, $B9D64E3B, $7366772C, 
    $37DB87E1, $986A2F6A, $8DDE1917, $D306DD78, 
    $5D1CB75D, $4B0C0CD6, $CC931C33, $5B0A5D04, 
    $2F526519, $618D6182, $F222738F, $9AC281D0, 
    $E7444D15, $D4C4D96E, $EB6D7B2B, $460617DC, 
    $29546B51, $408C609A, $8165CF07, $BDFD2B28, 
    $E17AFBCD, $1FAD2306, $34A94B23, $CB2D07B4, 
    $15827A89, $D70B8CB2, $255E0B7F, $94C43980, 
    $E983A385, $BC13499E, $E34E6C1B, $21268C8C, 
    $52A172C1, $826345CA, $424508F7, $EBB90CD8, 
    $3405243D, $BCB9AD36, $8EA8BE13, $5BEE0664, 
    $E21A33F9, $5D1FEBE2, $BE58A76F, $29910530, 
    $480A5DF5, $6056ADCE, $79C8210B, $FA52D53C, 
    $2B799E31, $1081DEFA, $195AC6E7, $C4958288, 
    $4A8230AD, $8B14AB66, $F3007503, $C3785914, 
    $4FF09169, $75FD7F12, $9411475F, $0823E4E0, 
    $D9BF7C65, $101205FE, $C36999FB, $F455F1EC, 
    $0DD3EDA1, $08BB2C2A, $67C608D7, $2A2D8C38, 
    $78F9211D, $CAE11D96, $AE5F6FF3, $BD36FFC4, 
    $341C92D9, $27174642, $0DC6EB4F, $B0B7D890, 
    $8BC9FED5, $8908522E, $0F3AE29C, $A5E76111, 
    $24222D5A, $96E5CEC7, $275C29E8, $E1B0F58D, 
    $C38203C6, $31B4AEE3, $B9D4FA74, $EDF53849, 
    $29204172, $12F8933F, $24C7E040, $D190E545, 
    $283C925E, $8F9FD7DB, $D84CA74C, $622AF881, 
    $E709E28A, $085918B7, $A03C5B98, $E530ADFD, 
    $F39A5DF6, $8F3D4924, $D71181B9, $180B70A2, 
    $FB653F2F, $970EFBF0, $14BB2FB5, $19F1C68E, 
    $D8929CCB, $1A163FFC, $E355B3F1, $D1054BBA, 
    $05FEE6A7, $923F4A6D, $410D2C26, $A93DF8C3, 
    $289AEBD4, $B3486F29, $A30BD3D2, $7F0BEF1F, 
    $1B882BA0, $252FDE25, $89AAEEBE, $416925BB, 
    $8C62ACAC, $6C5E9361, $8CE768EA, $B1F63897, 
    $F3BD7AF8, $15E3CADD, $28FD6E56, $A49003B3, 
    $3658E284, $20B10099, $BC946B02, $A62BA30F, 
    $576E6F50, $A915F095, $D22B0AEE, $1BF272AB, 
    $843CED5C, $527C96D1, $20C33A1A, $F69E0E87, 
    $04D468A8, $2B652F4D, $EFCE2486, $561452A3, 
    $DE222D34, $07A23609, $CA583632, $B9435AFF, 
    $313CC700, $8CD46705, $AD751B1E, $963D839B, 
    $A3F0020C, $6D26BE41, $1DEBBF4A, $76956877, 
    $5E88EA58, $8C4A77BD, $D1224EB6, $F3F9E593, 
    $6AE1CBE4, $0AB30F79, $D54A3562, $311216EF), (
    $80AE32B0, $73124175, $64CC1F4E, $AA99588B, 
    $8B06EABC, $861409B1, $D0F3F87A, $7CBB4667, 
    $73360008, $605AA42D, $2FDCECE6, $78AFBC83, 
    $FCC2BE94, $F6BA8CE9, $B99D6892, $A696D6DF, 
    $BEBDB260, $24B67FE5, $0F94F17B, $864CA76C, 
    $C93B7921, $71AEE5AA, $EC2EA857, $AE76A9B8, 
    $AD9CB49D, $C620FF16, $92E4D773, $39300544, 
    $32CFAE59, $56C4CFC2, $C3109ACF, $B5A64610, 
    $78ED03AE, $27FF4E6B, $3FCC381C, $34D40C91, 
    $532F86DA, $304E8E47, $2525E768, $C857A90D, 
    $D5518546, $95883663, $FAD49FF4, $304973C9, 
    $BF736AF2, $2FFE62BF, $30E2EDC0, $6D0E28C5, 
    $E47CE3DE, $F2E76F5B, $6ED09CCC, $0954C401, 
    $13C8DC0A, $2CB9F837, $455EB918, $C312817D, 
    $56117F76, $67C8D953, $DABEDD39, $699C3A22, 
    $871F2EAF, $AD2EA970, $44CF9335, $A9A5B80E, 
    $FB9C544B, $87E4D57C, $39749F71, $CD0DE53A, 
    $2D4FE627, $867C1EC8, $DE943DED, $2843EDA6, 
    $7515C043, $A2AFD154, $0806EAA9, $5E723D52, 
    $4271FE9F, $08847920, $4A1361A5, $ADEA803E, 
    $49ACFD3B, $6CD3E22C, $DA2A9EE1, $43D1A26A, 
    $D62F5817, $19191878, $F9E3DE5D, $430BCFD6, 
    $9D1DEB33, $787C6804, $E8389C19, $6A687482, 
    $AC35D28F, $321F5CD0, $95009415, $860E3C6E, 
    $50E86A2B, $1CA8C2DC, $92ADC251, $1827139A, 
    $13B74E07, $9710A628, $E4CC2606, $23D05A23, 
    $12AC52B4, $75AAF189, $4D31DFB2, $CEE9AA7F, 
    $DA7A5480, $03FE2A85, $A613EC9E, $E15D9B1B, 
    $63AE778C, $0C7509C1, $F56138CA, $0A86C7F7, 
    $B37DC7D8, $6348CB3D, $C327F036, $A15C0D13, 
    $A62A9164, $E4F4EAF9, $E9C17EE2, $654C866F, 
    $23506030, $ABB324F5, $913E90CE, $175B900B, 
    $8B70003C, $63377531, $C21311FA, $077CC5E7, 
    $EABB7D88, $76AC17AD, $3B022E66, $F2300403, 
    $BD222414, $14ED8869, $764A5212, $CA5D665F, 
    $4F9C7FE0, $47068365, $0A1128FE, $4B7148FB, 
    $0AB85CEC, $94EC04A1, $D00F9F2A, $6FB847D7, 
    $3264C738, $F479481D, $807DE096, $26FB3EF3, 
    $E6FE0AC4, $FEABC9D9, $AC3F5942, $E95B4A4F, 
    $7399B390, $A71F45D5, $424EB52E, $35928D9C, 
    $F1C9B811, $0C69E05A, $B0984DC7, $A954A4E8, 
    $62F75C8D, $CEFE06C6, $74ACBDE3, $68694574, 
    $2586AF49, $F8539472, $2DC5323F, $24C2FB40, 
    $23646C45, $0AFA355E, $DD6006DB, $ED49924C, 
    $8C478F81, $2F74D58A, $2FBBD7B7, $47A61698, 
    $86AD54FD, $9925A0F6, $247380D3, $EB4ED424, 
    $071538B9, $AA7A03A2, $735A1E2F, $29D356F0, 
    $097CF6B5, $0456A98E, $89970BCB, $50686AFC, 
    $A91C8AF1, $ECC37EBA, $3B01E5A7, $8EB41C48, 
    $D262316D, $B8D7AF26, $83BE87C3, $2ED9B6D4, 
    $8B2E6629, $25E5A6D2, $F6190E1F, $2AC5C6A0, 
    $0D4FE525, $CDE711BE, $B0A1D4BB, $6ABA17AC, 
    $2F3FAA61, $2328DBEA, $F8897797, $3919B5F8, 
    $D71CF1DD, $9F373156, $D43CD2B3, $B774ED84, 
    $73E93799, $11097E02, $4241020F, $60D54A50, 
    $B9043795, $366E6DEE, $E84F61AB, $E549985C, 
    $17E7EDD1, $0CB7ED1A, $56B18D87, $EAB1E3A8, 
    $B424964D, $84A72786, $3BDD61A3, $7ECB7834, 
    $CD9CAD09, $85988932, $2450F9FF, $467CE200, 
    $DD00EE05, $6BEFBE1E, $A2AEB29B, $B661ED0C, 
    $DE8C5541, $6EC3B24A, $FC192777, $E097A558, 
    $87001EBD, $98CA91B6, $B4CF3493, $A3C856E4, 
    $5EDFC679, $4085C862, $9907F5EF, $47778DB0, 
    $FFED0875, $2BAE024E, $1E0EC78B, $D18E15BC));
